global gNoteStyle, gNoteShowLines, gNoteTFont, gNoteTStyle,gNoteTHeight
global gNoteTSize, gGlobalInitFlag, gDoMeNoteRequireCmd,gRegisteredFlag
put the hilite of button "gNoteShowLines" into gNoteShowLines
put the hilite of button "gDoMeNoteRequireCmd" into gDoMeNoteRequireCmd
repeat with Num = 0 to 4
put "btn (num + the number of btn ""e&"Scrolling""e&")" into it
if the hilite of it = true then
put the short name of it into gNoteStyle
exit repeat
end if
end repeat
repeat with Num = 0 to 2
put "btn (num + the number of btn ""e&"Left""e&")" into it
if the hilite of it = true then
put the short name of it into gNoteAlign
exit repeat
end if
end repeat
get the TextSize of card field "trial Field"
put it into gNoteTSize
get the TextFont of card field "trial Field"
put it into gNoteTFont
get the TextStyle of card field "trial Field"
put it into gNoteTStyle
get the textHeight of card field "trial Field"
put it into gNoteTHeight
set showLines of card field "Trial Field" to gNoteShowLines
put the visible of button "gRegisteredFlag" into gRegisteredFlag
pass closecard
end closecard
on SetStyle theStyle
global gNoteStyle,gNoteShowLines
put theStyle into gNoteStyle
repeat with Num = 0 to 4
put "btn (num + the number of btn ""e&"Scrolling""e&")" into it
if the short name of it = theStyle then
set the hilite of it to true
next repeat
end if
set the hilite of it to false
end repeat
set showLines of card field "Trial Field" to gNoteShowLines
set the style of card field "Trial Field" to gNoteStyle
end SetStyle
on SetAlign theStyle
global gNoteAlign
put theStyle into gNoteAlign
repeat with Num = 0 to 2
put "btn (num + the number of btn ""e&"Left""e&")" into it
if the short name of it = theStyle then
set the hilite of it to true
next repeat
end if
set the hilite of it to false
end repeat
set textAlign of card field "Trial Field" to gNoteAlign
end SetAlign
-- part 1 (field)
-- low flags: 01
-- high flags: 4007
-- rect: left=36 top=129 right=199 bottom=248
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Trial Field
-- part 3 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=36 top=203 right=222 bottom=64
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: gNoteTSize
----- HyperTalk script -----
on closefield
global gNoteTSize
put the id of me into MyId
if card field id myId<6 or card field id myId>48 then
beep
click at the loc of card field id myId
click at the loc of card field id myId
exit closefield
end if
put card field id myId into gNoteTSize
set the textSize of card field "Trial Field" to gNoteTSize
end closefield
-- part 12 (button)
-- low flags: 00
-- high flags: 6005
-- rect: left=283 top=247 right=263 bottom=301
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 130
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: gNoteShowLines
----- HyperTalk script -----
on mouseUp
global gNoteShowLines
put the hilite of me into gNoteShowLines
send closeCard
end mouseUp
on mousedown
end mousedown
-- part 13 (button)
-- low flags: 00
-- high flags: 6006
-- rect: left=283 top=148 right=167 bottom=378
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 130
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Scrolling
----- HyperTalk script -----
on mouseUp
setStyle the short name of me
end mouseUp
-- part 14 (button)
-- low flags: 00
-- high flags: 2006
-- rect: left=283 top=166 right=185 bottom=379
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 130
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Rectangle
----- HyperTalk script -----
on mouseUp
setStyle the short name of me
end mouseUp
-- part 15 (button)
-- low flags: 00
-- high flags: 2006
-- rect: left=283 top=184 right=203 bottom=378
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 130
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Opaque
----- HyperTalk script -----
on mouseUp
setStyle the short name of me
end mouseUp
-- part 16 (button)
-- low flags: 00
-- high flags: 2006
-- rect: left=283 top=202 right=221 bottom=378
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 130
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Transparent
----- HyperTalk script -----
on mouseUp
setStyle the short name of me
end mouseUp
-- part 17 (button)
-- low flags: 00
-- high flags: 2006
-- rect: left=283 top=220 right=239 bottom=378
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 130
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Shadow
----- HyperTalk script -----
on mouseUp
setStyle the short name of me
end mouseUp
-- part 18 (button)
-- low flags: 00
-- high flags: 6005
-- rect: left=283 top=265 right=282 bottom=301
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 130
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: gDoMeNoteRequireCmd
----- HyperTalk script -----
on mouseUp -- Determines whether the command key must be down to Do
-- the DoMe‚Ñ¢ Script
global gDoMeNoteRequireCmd -- Default is True
put the hilite of me into gDoMeNoteRequireCmd
end mouseUp
on mousedown
end mousedown
-- part 65 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=36 top=110 right=130 bottom=142
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: NoteFontName
-- part 81 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=182 top=76 right=93 bottom=200
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 130
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: gRegisteredFlag
----- HyperTalk script -----
on mouseUp -
global gRegisteredFlag -- Default is not Visible
put the visible of me into gRegisteredFleg
end mouseUp
on mousedown
end mousedown
-- part 76 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=93 top=75 right=130 bottom=200
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 130
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
-- part 61 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=37 top=88 right=107 bottom=142
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 130
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Note Text Font
----- HyperTalk script -----
on mouseUp
global gNoteTFont,gNoteTStyle,gNoteTSize
set lockscreen to true
choose field tool
click at the loc of card field "Trial Field"
domenu Text Style...
choose browse tool
get the TextFont of card field "trial Field"
put it into gNoteTFont
put it into card field "NoteFontName"
set the textFont of card field "NoteFontName" to it
get the TextSize of card field "trial Field"
put it into gNoteTSize
put it into card field "gNoteTSize"
get the TextHeight of card field "trial Field"
put it into gNoteTHeight
put it into card field "gNoteTHeight"
get the TextStyle of card field "trial Field"
put it into gNoteTStyle
set lockscreen to false
end mouseUp
on mousedown
end mousedown
-- part 72 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=36 top=221 right=240 bottom=64
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: gNoteTHeight
----- HyperTalk script -----
on closefield
global gNoteTHeight
put the id of me into MyId
if card field id myId<6 or card field id myId>48 then
beep
click at the loc of card field id myId
click at the loc of card field id myId
exit closefield
end if
put card field id myId into gNoteTHeight
set the textHeight of card field "Trial Field" to gNoteTHeight
end closefield
-- part 73 (button)
-- low flags: 00
-- high flags: 6006
-- rect: left=283 top=89 right=108 bottom=378
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 130
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Left
----- HyperTalk script -----
on mouseUp
setAlign the short name of me
end mouseUp
-- part 74 (button)
-- low flags: 00
-- high flags: 2006
-- rect: left=283 top=107 right=126 bottom=379
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 130
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Center
----- HyperTalk script -----
on mouseUp
setAlign the short name of me
end mouseUp
-- part 75 (button)
-- low flags: 00
-- high flags: A006
-- rect: left=283 top=125 right=144 bottom=378
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 130
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Right
----- HyperTalk script -----
on mouseUp
setAlign the short name of me
end mouseUp
-- part 77 (button)
-- low flags: 00
-- high flags: 8002
-- rect: left=36 top=244 right=263 bottom=182
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: More on MemoNotes
----- HyperTalk script -----
on mouseUp
go to card id 2885
end mouseUp
-- part 78 (field)
-- low flags: 81
-- high flags: 2007
-- rect: left=178 top=63 right=297 bottom=419
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: About Settings
----- HyperTalk script -----
on mouseup
hide the target
end mouseup
-- part 79 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=431 top=42 right=65 bottom=454
-- title width / last selected line: 0
-- icon id / first selected line: 19678 / 19678
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Tell More
----- HyperTalk script -----
on mouseUp
visual effect iris open
put "card field"&"e&"About Settings""e into it
set the visible of it to not the visible of it
end mouseUp
-- part 80 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=431 top=42 right=65 bottom=454
-- title width / last selected line: 0
-- icon id / first selected line: 19678 / 19678
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Tell More
----- HyperTalk script -----
on mouseUp
visual effect iris open
put "card field"&"e&"About Settings""e into it
set the visible of it to not the visible of it
end mouseUp
-- part contents for background part 31
----- text -----
Version 4.1.1
-- part contents for card part 3
----- text -----
9
-- part contents for card part 1
----- text -----
The Text Style of the Note Field can be set by clicking on the Note Text Font Button, or by typing the size or text height into the appropriate field. This Test Field shows the effects of the various selections.
-- part contents for card part 65
----- text -----
Geneva
-- part contents for card part 72
----- text -----
12
-- part contents for card part 78
----- text -----
The MemoNote‚Ñ¢ Settings Card allows you to set up the default Note style for your MemoNotes. Every Note created will then reflect your choices, until the settings are changed.
Most of the Options are self explanatory, but please note the follwing…
“Require Cmd Key for DoMeNote Action” as it says, DoMeNotes™ normally behave like MemoNotes, if this check mark is turned OFF, the commandKey will NOT be required to perform the DoMe Field. However, it WILL be required to toggle the note on & off. This option will not work well with ShowNotes (Opt-click on MemoNotes Button), and may be removed.
The Text Size and Height fields will be over-ridden by the Text Font Dialog.
Finally, remember that if you take your stacks to somebody else’s Mac, any non-standard fonts may not be found there! Stick to the old standards if you’re publishing…
If you do publish, you’ll owe me for the Shareware, as well!
I hope you’ll find DoMeNotes™ as useful as I have! Please let me know, and if you find it useful enough, support the shareware ideal by registering your use of MemoNotes. You'll be supporting the further development of ideas like this one, and will be entered into our mailing list, and will possibly receive a sample issue of MiceType™, our Quarterly Journal of Macintosh Typography and Design, as well as other good stuff.
You’ll also receive a key to stop the Shareware Message from coming up in all your notes!
.iso/Stacks/Updates⁄New/MemoNoteStack 4.0/card_4731_render.png){kind=link}
.iso/Stacks/Updates⁄New/MemoNoteStack 4.0/card_5355_render.png){kind=link}